00100	(DF !EHANDL (X)
00200		(PROG (!ANS! !TMS!)
00300			(TERPRI (PRINT (TERPRI(CAR X))))
00400			(SETQ !TMS! (TIME))
00500			(SETQ !ANS! 
00600				((LAMBDA (TMP)
00700					(COND ((ATOM TMP) @ERROR)
00800					      ((CAR TMP))
00900					)
01000				 )
01100				(ERRSET (EVAL  (CAR X)) T)
01200			))
01300			(PRINT @TIME) (TYO 9) (PRINC (*DIF (TIME) !TMS!))(PRINC @MS)
01400			(TYO 9) (PRINC @(VALUE IS---))
01500			(RETURN !ANS!)
01600		)]
01700	
01800	(TERPRI(TERPRI(TERPRI @(FUNCTION CALLS FOLLOW]
01900	
02000	(!EHANDL(SF 2)]
02100	(!EHANDL(SF @(MINUS 50))]
02200	(!EHANDL(SF @X2)]
02300	(!EHANDL(SF @(MINUS X2))]
02400	(!EHANDL(SF @(PLUS (TIMES 2 A B)(MINUS C) D))]
02500	(!EHANDL(SF @(PLUS 3 (MINUS (EXPT 2 3)) 5))]
02600	(!EHANDL(SF @(PLUS (EXPT (PLUS A B) 2)(EXPT (PLUS A (MINUS B)) 2)))]
02700	(!EHANDL(SF @(EXPT (PLUS A (MINUS A)) 20))]
02800	(!EHANDL(SF @(PLUS (EXPT (PLUS (EXPT (PLUS U (MINUS U)) 4) A B) 5) (MINUS (EXPT (PLUS B A) 5)) (MINUS 10) 3))]
02900	(!EHANDL(SF @(TIMES 20 (PLUS (TIMES 3 B (EXPT A 2)) (EXPT (PLUS A 3) 2) (MINUS (TIMES 2 B))) A))]
03000	(!EHANDL(SF @(MINUS(MINUS(MINUS(MINUS(MINUS (EXPT 0 100)))))))]